unit uDBCommand;

interface

uses
  SysUtils, Classes, DBAccess, MyAccess, ADODB;

type
  TfDBCommand = class(TDataModule)
    qAddWindow: TMyCommand;
    qAddAgreementWindowSizePosition: TMyCommand;
    qAddAgreementWindowMaterial: TMyCommand;
    qAgreementDeselect: TMyCommand;
    qAddWindowOption: TMyCommand;
    qAddAgreementWindowOption: TMyCommand;
    qAddOtliv: TMyCommand;
    qAddAgreementWindowOtlivSizePosition: TMyCommand;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fDBCommand: TfDBCommand;

implementation

uses uDBCustom;

{$R *.dfm}

end.
